﻿Public Class Campeon : Inherits UnidadBase

    Protected Property Rango As Boolean
    Public Property Nombre As String
    Protected Const FUERZA_CAMP = FUERZA_BASE + 1
    Protected Const ATAQUE_CAMP = ATAQUE_BASE + 2
    Protected Const VELOCIDAD_CAMP = VELOCIDAD_BASE
    Protected Const VIDA_CAMP = VIDA_BASE + 1
    Protected Const COSTE_CAMP = COSTE_BASE + 6
    Protected Const DEFENSA_CAMP = DEFENSA_BASE + 1
    Protected Const DISCIPLINA_CAMP = DISCIPLINA_BASE + 2
    Protected Const TAMAÑO_CAMP = TAMAÑO_BASE

    Public Sub New(ByVal nombre As String)
        Me.Nombre = nombre
        Me.Rango = rango
        Me.Fuerza = FUERZA_CAMP
        Me.Ataque = ATAQUE_CAMP
        Me.Velocidad = VELOCIDAD_CAMP
        Me.Vida = VIDA_CAMP
        Me.Defensa = DEFENSA_CAMP
        Me.Coste = COSTE_CAMP
        Me.Tamaño = TAMAÑO_CAMP
        Me.Disciplina = DISCIPLINA_CAMP

    End Sub

End Class
